Amiga ISO Collection/AmigaUtilCD1.iso/Backup/QUARTERBACK6'0.DMS/in.adf/Hard Drive Install

Text File | 1993-11-30 | 3.9 KB | 135 lines

; Quarterback/Schedule Pro Hard Disk Installer script
; Copyright (c) 1993 Central Coast Software, a division of New Horizons Software, Inc.

(if (< @user-level 1)
    (user 1)
    (user 2)
)

(set @default-dest
    (askdir
        (prompt "Please select the drawer into which Quarterback is to be installed.")
        (help "Quarterback and its associated files will be placed into the drawer selected here.")
        (default "SYS:Utilities")
    )
)

(set answer
    (askbool
        (prompt "Do you wish to install the Quarterback program?")
        (help "The Quarterback program is required to run Quarterback.  Choosing to install this program will place the Quarterback program in the drawer selected.")
    )
)
(if answer
    (
        (askdisk
            (prompt "Please insert the Quarterback disk in any drive.")
            (help "The Quarterback disk contains the Quarterback program.")
            (dest "Quarterback")
        )
        (copyfiles
            (source "Quarterback:")
            (dest @default-dest)
            (choices "Quarterback")
            (infos)
        )
        (tooltype
            (dest (tackon @default-dest "Quarterback"))
            (noposition)
            (swapcolors)
        )
        (makedir
            (tackon @default-dest "Macros")
            (infos)
        )
    )
)

(set answer
    (askbool
        (prompt "Do you wish to install the sample macros?\n\n(Click on \"Help\" for information about the sample macros.)")
        (help "There are two sample macros included with Quarterback:  \"Backup\" and \"Multiple Backups\".\n\nThe \"Backup\" macro is a macro that can automatically perform a full backup of a specified volume.\n\nThe \"Multiple Backups\" macro is a macro that makes it easier to back up several volumes to a single tape.")
    )
)
(if answer
    (
        (askdisk
            (prompt "Please insert the Quarterback disk in any drive.")
            (help "The Quarterback disk contains the sample macros.")
            (dest "Quarterback")
        )
        ; Macros drawer is not created in "pretend" install
        (if (exists (tackon @default-dest "Macros") (noreq))
            (
                (copyfiles
                    (source "Quarterback:Macros")
                    (dest (tackon @default-dest "Macros"))
                    (choices "Backup" "Multiple Backups")
                    (infos)
                )
                (foreach (tackon @default-dest "Macros") "#?"
                    (tooltype
                        (dest (tackon @default-dest (cat "Macros/" @each-name)))
                        (noposition)
                        (swapcolors)
                    )
                )
            )
        )

        (set answer
            (askbool
                (prompt "Do you wish to install the \"QB FKeys\" file?\n\n(Click on \"Help\" for information about this file.)")
                (help "The \"QB FKeys\" file contains information that allows you to execute the sample macros either by pressing a function key or by choosing them from the \"Macros\" menu in Quarterback.\n\nIf you already have a \"QB FKeys\" file, then you may not want to install this file, since doing so would replace your previous function key assignments.")
            )
        )
        (if answer
            (
                (askdisk
                    (prompt "Please insert the Quarterback disk in any drive.")
                    (help "The Quarterback disk contains the \"QB FKeys\" file.")
                    (dest "Quarterback")
                )
                (copyfiles
                    (source "Quarterback:")
                    (dest @default-dest)
                    (choices "QB FKeys")
                    (infos)
                )
                (tooltype
                    (dest (tackon @default-dest "QB FKeys"))
                    (noposition)
                    (swapcolors)
                )
            )
        )
    )
)

(set answer
    (askbool
        (prompt "Do you wish to install the Schedule Pro program?\n\n(Click on \"Help\" for more information about Schedule Pro.)")
        (help "Schedule Pro allows you to schedule automatic backups, automatically run other AmigaDOS or AREXX programs, or even automatically display reminders on your screen.\n\nChoosing to install this program will place the Schedule Pro program in the Quarterback drawer.")
    )
)
(if answer
    (
        (askdisk
            (prompt "Please insert the Quarterback disk in any drive.")
            (help "The Quarterback disk contains the Schedule Pro program.")
            (dest "Quarterback")
        )
        (copyfiles
            (source "Quarterback:")
            (dest @default-dest)
            (choices "Schedule Pro")
            (infos)
        )
        (tooltype
            (dest (tackon @default-dest "Schedule Pro"))
            (noposition)
            (swapcolors)
        )
    )
)